home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Essential Home & Business Collection
/
The Essential Home & Business Collection.iso
/
26
/
3
/
4
/
TTDIR1.ZIP
/
TTD101.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-11-24
|
340b
|
24 lines
'
' Demo using PowerBasic 2.10 Directory command along with using the DTA
' area to get extended file information.
'
OPTION BASE 1
$LINK "TTDIR101.PBU"
DIM UDir$(255)
Path$ = COMMAND$
IF Path$ = "" THEN
Path$ = "*.*"
END IF
N% = 0
CALL GetDir(Path$, UDir$(), N%)
FOR J% = 1 TO N%
PRINT UDir$(J%)
NEXT J%